home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / biz / dopus / teletubbies.lha / teletubbies.theme < prev   
Text File  |  1999-05-11  |  3KB  |  78 lines
  1. /* D5THEME
  2.  
  3.    teletubbies.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.         dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.         apply_flags='PFBS'
  15. else
  16.         apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.         dopus  set  background on
  24.         dopus  set  background "'D5THEMES:Teletubbies/Screens/'" desktop center precision exact border off
  25.         dopus  set  background "'D5THEMES:Teletubbies/Patterns/'" lister tile precision image border off
  26.         dopus  set  background "'D5THEMES:teletubbies/requesters/logo.jpg'" req tile precision exact border off
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.         dopus  set  sound "'Bad disk inserted'" "'D5THEMES:Teletubbies/Sounds/uhoh.wav'" 64
  32.         dopus  set  sound "'Close buttons'" "'D5THEMES:Teletubbies/Sounds/byebye.wav'" 64
  33.         dopus clear sound "'Close group'"
  34.         dopus clear sound "'Close lister'"
  35.         dopus  set  sound "'Disk inserted'" "'D5THEMES:Teletubbies/Sounds/bigslurp.wav'" 64
  36.         dopus  set  sound "'Disk removed'" "'D5THEMES:Teletubbies/Sounds/toasteject.wav'" 64
  37.         dopus clear sound "'FTP close connection'"
  38.         dopus  set  sound "'FTP connect fail'" "'D5THEMES:Teletubbies/Sounds/twagain.wav'" 64
  39.         dopus clear sound "'FTP connect success'"
  40.         dopus  set  sound "'FTP copy fail'" "'D5THEMES:Teletubbies/Sounds/dagain.wav'" 64
  41.         dopus clear sound "'FTP copy success'"
  42.         dopus  set  sound "'FTP error'" "'D5THEMES:Teletubbies/Sounds/uhoh.wav'" 64
  43.         dopus  set  sound "'Hide'" "'D5THEMES:Teletubbies/Sounds/toastflying.wav'" 64
  44.         dopus clear sound "'Open buttons'"
  45.         dopus clear sound "'Open group'"
  46.         dopus clear sound "'Open lister'"
  47.         dopus  set  sound "'Reveal'" "'D5THEMES:Teletubbies/Sounds/dehoh.wav'" 64
  48.         dopus  set  sound "'Shutdown'" "'D5THEMES:Teletubbies/Sounds/timefortubbybyebye.wav'" 64
  49.         dopus  set  sound "'Startup'" "'D5THEMES:Teletubbies/Sounds/teletubbies.wav'" 64
  50. end
  51.  
  52. /* Set fonts */
  53. if index( apply_flags , "F") ~= 0 then do
  54.         dopus set font screen "'FuturaB.font'" 12
  55.         dopus set font listers "'XEN.font'" 8
  56.         dopus set font iconsd "'Helvetica.font'" 11
  57.         dopus set font iconsw "'Helvetica.font'" 9
  58. end
  59.  
  60. /* Set colour settings*/
  61. if index( apply_flags , "P") ~= 0 then do
  62.         dopus set pens icons 2 1 3 1 0 1
  63.         dopus set pens files 1 0
  64.         dopus set pens dirs 9 0
  65.         dopus set pens selfiles 2 1
  66.         dopus set pens seldirs 2 9
  67.         dopus set pens devices 1 0
  68.         dopus set pens assigns 2 0
  69.         dopus set pens source 1 15
  70.         dopus set pens dest 1 11
  71.         dopus set pens gauge 3 11
  72.         dopus set pens user 8
  73.         dopus set palette 0x959595 0x000000 0xFFFFFF 0x38639E 0x7B7B7B 0xAFAFAF 0xAA907C 0xFFA997 0xEFAF4F 0x7F007F 0xFFFF00 0xCF2F00 0xFF8F00 0xFF00FF 0x9F6F3F 0x00FF9F
  74. end
  75.  
  76. /* Refresh Opus */
  77. dopus refresh all
  78.